﻿Public Class BEAlternativa
  Private _intId As Integer
  Private _questaoId As Integer
  Private _strTextoAlternartiva As String
  Private _booAlternativaCerta As Boolean

  Sub New()
    _intId = 0
    _questaoId = 0
    _strTextoAlternartiva = ""
    _booAlternativaCerta = False
  End Sub

  Sub New(ByVal intId As Integer)
    Me.New()
    _intId = intId
  End Sub

  Public Property Id() As Integer
    Get
      Return _intId
    End Get
    Set(ByVal value As Integer)
      _intId = value
    End Set
  End Property

  Public Property QuestaoId() As Integer
    Get
      Return _questaoId
    End Get
    Set(ByVal value As Integer)
      _questaoId = value
    End Set
  End Property

  Public Property Texto() As String
    Get
      Return _strTextoAlternartiva
    End Get
    Set(ByVal value As String)
      _strTextoAlternartiva = value
    End Set
  End Property

  Public Property RespostaCerta() As Boolean
    Get
      Return _booAlternativaCerta
    End Get
    Set(ByVal value As Boolean)
      _booAlternativaCerta = value
    End Set
  End Property

End Class
